home *** CD-ROM | disk | FTP | other *** search
/ Armageddon - Interactive Preview / Interactive Preview: Armageddon.iso / pc / control.dxr / Scripts & Behaviors_17_Abort Rollover.ls < prev    next >
Encoding:
Text File  |  1998-05-19  |  785 b   |  36 lines
  1. property pOpenState, pPlungerSprite
  2.  
  3. on new me
  4.   set pOpenState to 0
  5.   set pPlungerSprite to the currentSpriteNum + 1
  6. end
  7.  
  8. on mouseEnter me
  9.   cursor(280)
  10. end
  11.  
  12. on mouseLeave me
  13.   if rollOver(the currentSpriteNum + 1) then
  14.     nothing()
  15.   else
  16.     cursor(0)
  17.     if pOpenState = 1 then
  18.       set pOpenState to 0
  19.       puppetSound(3, "abort close")
  20.       set the visible of sprite (the currentSpriteNum + 1) to 0
  21.       set the member of sprite the currentSpriteNum to "Abort Closed"
  22.       updateStage()
  23.     end if
  24.   end if
  25. end
  26.  
  27. on mouseDown me
  28.   if pOpenState = 0 then
  29.     set pOpenState to 1
  30.     puppetSound(3, "new abort open")
  31.     set the member of sprite the currentSpriteNum to "Abort Open"
  32.     updateStage()
  33.     set the visible of sprite (the currentSpriteNum + 1) to 1
  34.   end if
  35. end
  36.